home *** CD-ROM | disk | FTP | other *** search
/ Hyper Stacks 1994 May / Hyper Stacks (Pacific HiTech)(1994)[Mac].iso / Organization / HyperWallet / card_7789.txt < prev    next >
Encoding:
Text File  |  1988-05-17  |  3.7 KB  |  175 lines
  1. -- card: 7789 from stack: in
  2. -- bmap block id: 9133
  3. -- flags: 4000
  4. -- background id: 3827
  5. -- name: 
  6. ----- HyperTalk script -----
  7. on new
  8.   put empty into card field "Index"
  9.   set scroll of card field "Index" to 0
  10.   if visible of card field "Index" is false
  11.   then show card field "Index"
  12.   get the number of cards
  13.   put it into C
  14.   put 2 into n
  15.   put "          " & "INDEX" & return into line 2 of card field "Index"
  16.   repeat until n=C+1
  17.     get field "Name" of card n
  18.     put "          " & n-1 & "   " & it &  return into line n+1 of card field "Index"
  19.     put n+1 into n
  20.   end repeat
  21.   set lockText of card field "Index" to true
  22.   play "boing"
  23.   show button "Hide"
  24.   hide button "Show"
  25. end new
  26.  
  27.  
  28.  
  29. -- part 2 (button)
  30. -- low flags: 00
  31. -- high flags: 0000
  32. -- rect: left=138 top=244 right=274 bottom=170
  33. -- title width / last selected line: 0
  34. -- icon id / first selected line: 0 / 0
  35. -- text alignment: 1
  36. -- font id: 0
  37. -- text size: 12
  38. -- style flags: 0
  39. -- line height: 16
  40. -- part name: Help
  41. ----- HyperTalk script -----
  42. on mouseUp
  43.   show card field "Info"
  44.   hide card field "Index"
  45.   show button "Show"
  46.   hide button "Hide"
  47. end mouseUp
  48.  
  49.  
  50.  
  51. -- part 1 (field)
  52. -- low flags: 81
  53. -- high flags: 2002
  54. -- rect: left=6 top=23 right=210 bottom=455
  55. -- title width / last selected line: 0
  56. -- icon id / first selected line: 0 / 0
  57. -- text alignment: 0
  58. -- font id: 33
  59. -- text size: 14
  60. -- style flags: 0
  61. -- line height: 18
  62. -- part name: Info
  63. ----- HyperTalk script -----
  64. on mouseUp
  65.   hide card field "Info"
  66. end mouseUp
  67.  
  68.  
  69. -- part 4 (button)
  70. -- low flags: 80
  71. -- high flags: A003
  72. -- rect: left=159 top=306 right=324 bottom=202
  73. -- title width / last selected line: 0
  74. -- icon id / first selected line: 0 / 0
  75. -- text alignment: 1
  76. -- font id: 0
  77. -- text size: 12
  78. -- style flags: 0
  79. -- line height: 16
  80. -- part name: Show
  81. ----- HyperTalk script -----
  82. on mouseUp
  83.   show card field "Index"
  84.   show button "Hide"
  85.   hide button "Show"
  86. end mouseUp
  87.  
  88.  
  89.  
  90. -- part 5 (field)
  91. -- low flags: 01
  92. -- high flags: 0007
  93. -- rect: left=6 top=23 right=211 bottom=455
  94. -- title width / last selected line: 0
  95. -- icon id / first selected line: 0 / 0
  96. -- text alignment: 0
  97. -- font id: 16
  98. -- text size: 12
  99. -- style flags: 0
  100. -- line height: 16
  101. -- part name: Index
  102. ----- HyperTalk script -----
  103. on mouseUp
  104.   get scroll of card field "Index"
  105.   put it + (item 2 of the clickLoc) - (item 2 of the rect of the target) into Goal
  106.   put (Goal DIV textHeight of the target) into Goal
  107.   visual effect scroll up
  108.   go to card Goal
  109. end mouseUp
  110.  
  111.  
  112.  
  113. -- part 8 (button)
  114. -- low flags: 00
  115. -- high flags: A003
  116. -- rect: left=113 top=306 right=324 bottom=156
  117. -- title width / last selected line: 0
  118. -- icon id / first selected line: 0 / 0
  119. -- text alignment: 1
  120. -- font id: 0
  121. -- text size: 12
  122. -- style flags: 0
  123. -- line height: 16
  124. -- part name: New
  125. ----- HyperTalk script -----
  126. on mouseUp
  127.   new
  128. end mouseUp
  129.  
  130.  
  131.  
  132. -- part 9 (button)
  133. -- low flags: 00
  134. -- high flags: A003
  135. -- rect: left=159 top=306 right=324 bottom=202
  136. -- title width / last selected line: 0
  137. -- icon id / first selected line: 0 / 0
  138. -- text alignment: 1
  139. -- font id: 0
  140. -- text size: 12
  141. -- style flags: 0
  142. -- line height: 16
  143. -- part name: Hide
  144. ----- HyperTalk script -----
  145. on mouseUp
  146.   hide card field "Index"
  147.   show button "Show"
  148.   hide button "Hide"
  149. end mouseUp
  150.  
  151.  
  152.  
  153. -- part contents for card part 1
  154. ----- text -----
  155.  
  156. Welcome to HyperWallet by Piotr, CIS 71330,644.
  157.  
  158.                When entering information on the following cards note that clicking on the moneybag button shows the field for secret passcode.  You can access a card by clicking on its name in the index.  You need the original Phone stack to use the phone button.
  159.                Clicking here will make you accessory to crime.
  160.  
  161.  
  162.  
  163.  
  164.  
  165.  
  166.  
  167.  
  168.  
  169. -- part contents for card part 5
  170. ----- text -----
  171.  
  172.           INDEX
  173.           1   American Express
  174.           2   Driver License
  175.